how to use scale widget in tcl tk widget